home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / stnvjw20.zip / SETV1P.BAT < prev   
DOS Batch File  |  1992-05-09  |  4KB  |  177 lines
  1. rem    settest.bat
  2. rem    for testing Setenv.Com
  3. rem    setenv prompt 1.p
  4. rem    environment space
  5. set
  6. rem    missing delimiter
  7. rem    enter carriage return
  8. setenv name %%prompt %%def#test
  9. if errorlevel 6 goto a0
  10. goto error
  11. :a0
  12. rem    answer    name=%name%=
  13. rem    prompt message
  14. rem    enter 'p'
  15. setenv name %%prompt Data 
  16. if errorlevel 5 goto b1
  17. if errorlevel 2 goto b1
  18. goto error
  19. :b1
  20. rem    answer    p    name=%name%=
  21. rem    setenv version 1.1 and greater
  22. rem    prompt and  noecho
  23. rem    enter 'e'
  24. setenv name %%prompt %%noecho Data 
  25. if errorlevel 5 goto b2
  26. if errorlevel 2 goto b2
  27. goto error
  28. :b2
  29. rem    answer    e    name=%name%
  30. rem    setenv version 1.3 and greater
  31. rem    prompt and upper case
  32. rem    enter 'u'
  33. setenv name %%prompt %%upper Data 
  34. if errorlevel 5 goto b3
  35. if errorlevel 2 goto b3
  36. goto error
  37. :b3
  38. rem    answer    U    name=%name%
  39. rem    setenv version 1.9 and greater
  40. rem    prompt and lower case
  41. rem    enter 'L'
  42. setenv name %%prompt %%lower Data 
  43. if errorlevel 5 goto b4
  44. if errorlevel 2 goto b4
  45. goto error
  46. :b4
  47. rem    answer    l    name=%name%
  48. rem    prompt and default value
  49. rem    enter carriage return
  50. setenv name %%prompt %%def#test# Data 
  51. if errorlevel 5 goto b5
  52. if errorlevel 3 goto b5
  53. goto error
  54. :b5
  55. rem    answer    test    name=%name%
  56. rem    setenv version 1.5 and greater
  57. rem    prompt and time out no default
  58. rem    enter "let time out"
  59. setenv name %%prompt %%timo=04 Data 
  60. if errorlevel 2 goto b6
  61. goto error
  62. :b6
  63. rem    answer    name=%name%
  64. rem    setenv version 1.5 and greater
  65. rem    prompt and time out with default
  66. rem    enter "let time out"
  67. setenv name %%prompt %%def#test# %%timo=04 Data 
  68. if errorlevel 3 goto b7
  69. goto error
  70. :b7
  71. rem    answer    test    name=%name%
  72. rem    setenv version 1.5 and greater
  73. rem    time out with default with defaut
  74. rem    enter "let time out"
  75. setenv name %%prompt %%def#test# %%timo=04 Data 
  76. if errorlevel 5 goto b8
  77. goto error
  78. :b8
  79. rem    answer    test    name=%name%
  80. rem    setenv version 1.9 and greater
  81. rem    trim leading and trailling spaces
  82. rem    enter '  xx  xx  '
  83. setenv name %%prompt %%trim Data 
  84. if errorlevel 5 goto b9
  85. goto error
  86. :b9
  87. rem    answer    'xx  xx'    name=%name%
  88. rem    order test 1
  89. rem    enter xx
  90. setenv name %%prompt %%noecho %%upper %%def#test# Data 
  91. if errorlevel 5 goto d0
  92. goto error
  93. :d0
  94. rem    answer    XX    name=%name%
  95. rem    order test 2
  96. rem    enter xx
  97. setenv name %%prompt %%upper %%noecho %%def#test# Data 
  98. if errorlevel 5 goto d1
  99. goto error
  100. :d1
  101. rem    answer    XX    name=%name%
  102. rem    order test 3
  103. rem    enter xx
  104. setenv name %%prompt %%def#test# %%noecho %%upper Data 
  105. if errorlevel 5 goto d2
  106. goto error
  107. :d2
  108. rem    answer    XX    name=%name%
  109. rem    order test 4
  110. rem    enter xx
  111. setenv name %%prompt %%def#test# %%noecho %%upper %%timo=4 Data 
  112. if errorlevel 5 goto d3
  113. goto error
  114. :d3
  115. rem    answer    XX    name=%name%
  116. rem    order test 5
  117. rem    enter xx
  118. setenv name %%prompt %%timo=4 %%def#test# %%noecho %%upper Data 
  119. if errorlevel 5 goto d4
  120. goto error
  121. :d4
  122. rem    answer    XX    name=%name%
  123. :endtest
  124. rem    cleanup
  125. setenv name
  126. rem    End of Test.
  127. goto fini
  128. :error
  129. echo An error occured.
  130. if errorlevel 10 goto full
  131. if errorlevel 9 goto offset
  132. if errorlevel 8 goto not
  133. if errorlevel 7 goto numb
  134. if errorlevel 6 goto del
  135. if errorlevel 5 goto update
  136. if errorlevel 4 goto dos
  137. if errorlevel 3 goto create
  138. if errorlevel 2 goto erase
  139. if errorlevel 1 goto root
  140. if errorlevel 0 goto help
  141. echo no errorlevel status
  142. goto fini
  143. :full
  144. echo environment space is full.
  145. goto fini
  146. :offset
  147. echo offset not valid.
  148. goto fini
  149. :not
  150. echo environment variable not found.
  151. goto fini
  152. :numb
  153. echo not a valid argument.
  154. goto fini
  155. :del
  156. echo unmatched delimiter.
  157. goto fini
  158. :update
  159. echo environment variable updated.
  160. goto fini
  161. :dos
  162. echo don't know about MS-DOS V1.x
  163. goto fini
  164. :create
  165. echo environment variable created.
  166. goto fini
  167. :erase
  168. echo environment variable erased.
  169. goto fini
  170. :root
  171. echo root environment set.
  172. goto fini
  173. :help
  174. echo no command, help issued.
  175. goto fini
  176. :fini
  177.